﻿Public Class SCSModel
    'Singleton
    Private Shared _Instance As SCSModel
    Public Shared ReadOnly Property Instance As SCSModel
        Get
            If (_Instance Is Nothing) Then
                _Instance = New SCSModel
            End If
            Return _Instance
        End Get
    End Property

    Sub New()
        Dim bc As New BusinessLogic.BCSchool
        Alumnos = bc.SearchAlumnos()
    End Sub
    Public Alumnos As List(Of BusinessEntities.Alumno)

End Class
Public Class SCSModelFinanzas
    Inherits SCSModel

End Class